home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XTIMEXY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-16  |  918 b   |  49 lines
  1. {$IBoDecl}
  2. {$IPutStr}
  3. {$ITimeXY}
  4. {$IStime}
  5.  
  6. var
  7.    hh,mm,ss : integer;
  8.  
  9. function Range ( Ch: Char): boolean;
  10. begin
  11.    case Ch of
  12.       #32,#48..#57 : Range := True
  13.    else
  14.       Range := false;
  15.    end;
  16. end;
  17.  
  18. BEGIN
  19.  
  20.    ClrScr;
  21.    S := '';
  22.    PutStr ( h,'Current time: ',30,1, 14 );
  23.    PutStr ( h, 'Enter new time exactly as shown',1, 9, 14);
  24.    PutStr ( h, '      HH MM SS: ',1,10, 14);
  25.    SaveX := 17;
  26.    SaveY := 10;
  27.    Repeat
  28.       repeat
  29.          TimeXY(44,1);
  30.          GoToXY(SaveX,SaveY);
  31.       until KeyPressed;
  32.       read(Kbd,ch);
  33.       if Range(ch) then
  34.       begin
  35.          S := S + ch;
  36.          write(Ch);
  37.          SaveX := WhereX;
  38.       end;
  39.    until Ch = #13;
  40.    val ( Copy(S,1,2),hh,ecode );
  41.    val ( Copy(S,4,2),mm,ecode );
  42.    val ( Copy(S,7,2),ss,ecode );
  43.    Stime ( hh,mm,ss );
  44.    GotoXY(44,1);
  45.    ClrEol;
  46.    repeat TimeXY(44,1) until KeyPressed;
  47.  
  48. END.
  49.